Revista do CD-ROM 47/CD-ROM 47/CD-ROM 47.iso/aplicat/minibase/_setup.1/MiniBase.exe/0/RCDATA/TDESWIZFORM/TDESWIZFORM.txt

Text File | 1999-03-12 | 5.2 KB | 233 lines

object DesWizForm: TDesWizForm
  Left = 200
  Top = 108
  Width = 360
  Height = 262
  Caption = 'Table Design Assistant'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object CancelBtn: TBitBtn
    Left = 32
    Top = 208
    Width = 75
    Height = 25
    Caption = 'Cancel'
    TabOrder = 0
    OnClick = CancelBtnClick
  end
  object PriorBtn: TBitBtn
    Left = 112
    Top = 208
    Width = 75
    Height = 25
    Caption = '<< Prior'
    TabOrder = 1
    OnClick = PriorBtnClick
  end
  object NextBtn: TBitBtn
    Left = 192
    Top = 208
    Width = 75
    Height = 25
    Caption = 'Next >>'
    TabOrder = 2
    OnClick = NextBtnClick
  end
  object FinishBtn: TBitBtn
    Left = 272
    Top = 208
    Width = 75
    Height = 25
    Caption = 'Finish'
    TabOrder = 3
    OnClick = FinishBtnClick
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 352
    Height = 193
    ActivePage = TableTypePage
    Align = alTop
    TabOrder = 4
    object TableTypePage: TTabSheet
      Caption = 'TableTypePage'
      TabVisible = False
      object Label2: TLabel
        Left = 8
        Top = 128
        Width = 313
        Height = 26
        Alignment = taCenter
        Caption =
          'Select '#39'New (blank)'#39' table to create your new table from scratch' +
          ' or select a template to use as the starting point for your own ' +
          'table.'
        WordWrap = True
      end
      object Image2: TImage
        Left = 48
        Top = 40
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image000.bmp>}
      end
      object TbTypeRG: TRadioGroup
        Left = 144
        Top = 24
        Width = 161
        Height = 73
        Caption = 'New table creation assistant'
        ItemIndex = 0
        Items.Strings = (
          'New (blank) table'
          'Use template as primer')
        TabOrder = 0
      end
    end
    object TemplatePage: TTabSheet
      Caption = 'TemplatePage'
      TabVisible = False
      object Label3: TLabel
        Left = 80
        Top = 8
        Width = 78
        Height = 13
        Caption = 'Table templates:'
      end
      object Label4: TLabel
        Left = 72
        Top = 160
        Width = 216
        Height = 13
        Caption = 'Select a template to use and then press '#39'Next'#39
      end
      object TemplateLB: TListBox
        Left = 80
        Top = 24
        Width = 185
        Height = 129
        ItemHeight = 13
        TabOrder = 0
      end
    end
    object FieldDefsPage: TTabSheet
      Caption = 'FieldDefsPage'
      TabVisible = False
      object Label5: TLabel
        Left = 0
        Top = 0
        Width = 58
        Height = 13
        Caption = 'Field details:'
      end
      object AddBtn: TBitBtn
        Left = 278
        Top = 30
        Width = 65
        Height = 25
        Caption = '&Add field'
        TabOrder = 0
        OnClick = AddBtnClick
      end
      object DelBtn: TBitBtn
        Left = 278
        Top = 82
        Width = 65
        Height = 25
        Caption = '&Delete field'
        TabOrder = 1
        OnClick = DelBtnClick
      end
      object EditBtn: TBitBtn
        Left = 278
        Top = 56
        Width = 65
        Height = 25
        Caption = '&Edit field'
        TabOrder = 2
        OnClick = EditBtnClick
      end
      object Panel1: TPanel
        Left = 0
        Top = 16
        Width = 273
        Height = 167
        BevelOuter = bvLowered
        TabOrder = 3
        object LB1: TListBox
          Left = 1
          Top = 18
          Width = 271
          Height = 148
          Align = alClient
          ItemHeight = 16
          Style = lbOwnerDrawFixed
          TabOrder = 0
          OnDblClick = EditBtnClick
          OnDrawItem = LB1DrawItem
        end
        object HeaderControl1: THeaderControl
          Left = 1
          Top = 1
          Width = 271
          Height = 17
          Sections = <
            item
              Text = 'Field name'
              Width = 100
            end
            item
              Text = 'Field type'
              Width = 100
            end
            item
              Text = 'Sorted field'
              Width = 200
            end>
          OnSectionResize = HeaderControl1SectionResize
        end
      end
    end
    object FinishPage: TTabSheet
      Caption = 'FinishPage'
      TabVisible = False
      object Label1: TLabel
        Left = 136
        Top = 48
        Width = 179
        Height = 39
        Alignment = taCenter
        Caption =
          'Your table information is ready to use. Press '#39'Finish'#39', choose a' +
          ' table name and  your new table will be created.'
        WordWrap = True
      end
      object Image1: TImage
        Left = 48
        Top = 56
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image001.bmp>}
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'mti'
    Filter = 'MiniBase table files (*.mti)|*.mti'
    InitialDir = '.\tables'
    Title = 'Create a new table'
    Left = 12
    Top = 160
  end
end